home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / pour.dxr / 00001_Item Name text.ls next >
Encoding:
Text File  |  2000-03-23  |  640 b   |  32 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   customFont(pSpr.member)
  6.   mUpdate(me, "Last Call")
  7. end
  8.  
  9. on mUpdate me, newText
  10.   pSpr.member.text = newText
  11. end
  12.  
  13. on mouseEnter me
  14.   global gDrinkContentSpr
  15.   myRect = (the activeWindow).rect
  16.   stageRect = (the stage).rect
  17.   tipLoc = point(myRect.left - stageRect.left, myRect.bottom - stageRect.top + 5)
  18.   if the stage <> the activeWindow then
  19.     tell the stage
  20.       showToolTip(sprite(me.spriteNum), #pourmeter, tipLoc, 1)
  21.     end tell
  22.   end if
  23. end
  24.  
  25. on mouseLeave me
  26.   if the stage <> the activeWindow then
  27.     tell the stage
  28.       hideToolTip()
  29.     end tell
  30.   end if
  31. end
  32.